0 REM  *****************************           **      U.S.A. TODAY       **
1 REM  *****************************              FROM    DJB   SHIBLEY
2 REM
9 SP$="                    ":MS$="":GOSUB1100
10 GOSUB5000:GOTO100
25 U=54272:POKEU+1,20:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
26 FORJ=1TO10:NEXT:POKEU+4,16:RETURN
30 U=54272:POKEU+1,220:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
31 FORJ=.TO10:NEXT:POKEU+4,16:RETURN
35 U=54272:POKEU+1,5:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,7
36 FORJ=1TO5:NEXT:POKEU+4,16:RETURN
40 U=54272:POKEU+1,50:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,7
41 FORJ=1TO5:NEXT:POKEU+4,16:RETURN
100 POKE53265,PEEK(53265)AND139
101 POKE53280,4:POKE53281,10:PRINT"[147]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145] ";
102 GOSUB25
105 PRINT" [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  ";
110 FORJ=0TO9:PRINT"  ";
115 PRINT"  ";:NEXT
116 PRINT"  ";
120 PRINT"  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  ";
125 PRINT"[145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145]  [145] ";
130 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]";
135 FORJ=1TO19:PRINT"[191]                                  [191]";:NEXT
140 PRINT"[191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191][191]"
145 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
150 PRINT"[145]  MATTERS OF STATE  "
155 PRINT"[162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]"
160 PRINT"[144]                       "
165 PRINT"[145]                       "
175 PRINT"                       "
180 PRINT"1 - WHAT STATE AM I ?"
185 PRINT"2 - CAPITOLS"
190 PRINT"3 - MY NEIGHBORS ARE..."
195 PRINT"4 - STOP (AND GET SCORES)"
196 PRINT"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]":POKE53265,PEEK(53265)OR16
197 GOSUB25
200 PRINTMS$"[144]  PRESS OPTION  (1-4)"
205 FORJ=1TO25:GETX$:IFX$=""THENNEXT:GOTO212
210 J=25:NEXT:GOTO220
212 PRINTMS$SP$" "
215 FORJ=1TO20:GETX$:IFX$=""THENNEXT:GOTO200
220 Q=VAL(X$):IF(Q<1ORQ>4)ANDX$<>""THEN200
222 GOSUB25:IFX$=""THEN2000
230 ONQGOTO500,240,350,2000
240 PRINT"[158]                       "
245 PRINT"[145]                       "
250 PRINT"                       "
255 S=INT(RND(.)*50+1):PRINT"[145][145][145]"SPC(20-(LEN(S$(S,1)))/2)S$(S,1)""
256 X1=INT(RND(.)*50+1):IFX1=STHEN256
257 X2=INT(RND(.)*50+1):IFX2=SORX2=X1THEN257
258 X3=INT(RND(.)*50+1):IFX3=SORX3=X2ORX3=X1THEN258
259 X4=INT(RND(.)*50+1):IFX4=SORX4=X3ORX4=X2ORX4=X1THEN259
260 X$(1)=S$(X1,3):X$(2)=S$(X2,3):X$(3)=S$(X3,3)
262 X$(4)=S$(X4,3):A=INT(RND(.)*4+1):X$(A)=S$(S,3)
270 PRINTSPC(14)""X$(1)RIGHT$(SP$,21-LEN(X$(1)))
275 PRINTSPC(14)""X$(2)RIGHT$(SP$,21-LEN(X$(2)))
280 PRINTSPC(14)""X$(3)RIGHT$(SP$,21-LEN(X$(3)))
285 PRINTSPC(14)""X$(4)RIGHT$(SP$,21-LEN(X$(4)))
290 PRINTMS$"[158]";
292 POKE198,.:WAIT198,1:GETX$:X=VAL(X$):IFX$<>""ANDX<1ORX>4THEN292
295 IFX$=""THEN100
300 PRINT"         ";:IFX=ATHEN320
305 PRINT"WRONG        ":GOSUB35:GOSUB35:FORJ=1TO1500:NEXT:GOSUB35
310 W(Q)=W(Q)+1:GOTO325
320 GOSUB30:PRINT"RIGHT       ":R(Q)=R(Q)+1
325 FORJ=1TO4:PRINT""SPC(14);:IFJ=ATHENPRINT:GOTO330
327 PRINTSP$
330 NEXT:FORJ=1TO2500:NEXT:GOTO240
350 PRINT"[156]   "SP$
351 PRINT"[145]   "SP$
352 PRINT"   "SP$""
354 PRINT"            "SP$
355 PRINT"[145]            "SP$
356 PRINT"            "SP$
357 PRINT"[145]            "SP$
358 PRINT"            "SP$
359 PRINT"[145]            "SP$
360 PRINT"RETURN THE STATE BORDERED BY"
362 PRINT"[145][159]                             "
370 S=INT(RND(.)*50+1):PRINT"";
375 PRINTS$(T(S,1),1)SPC(16-LEN(S$(T(S,1),1)))S$(T(S,2),1)"[156]":IM=35:Z$=""
380 GOSUB800:IFX$=""THEN100
384 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN380
390 IFCK=1THENR(Q)=R(Q)+10:GOTO460
395 PRINT"";:W(Q)=W(Q)+1
398 PRINTS$(T(S,3),1)SPC(16-LEN(S$(T(S,3),1)))S$(T(S,4),1):IM=30
400 PRINT"[156]":GOSUB800:IFX$=""THENW(Q)=W(Q)-1:GOTO100
405 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN400
410 IFCK=1THENR(Q)=R(Q)+9:GOTO460
412 PRINT"";:W(Q)=W(Q)+1
415 PRINTS$(T(S,5),1)SPC(16-LEN(S$(T(S,5),1)))S$(T(S,6),1):IM=30
417 PRINT"[156]":GOSUB800:IFX$=""THENW(Q)=W(Q)-2:GOTO100
420 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN417
424 IFCK=1THENR(Q)=R(Q)+8:GOTO460
426 PRINT"";:W(Q)=W(Q)+1
429 PRINTS$(T(S,7),1)SPC(16-LEN(S$(T(S,7),1)))S$(T(S,8),1):IM=44
432 PRINT"[156]":GOSUB800:IFX$=""THENW(Q)=W(Q)-3:GOTO100
435 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN432
438 IFCK=1THENR(Q)=R(Q)+7:GOTO460
440 POKE53280,5:FORJ=1TO200:NEXT:PRINTMS$"[156] YOU HAVE ONLY SECONDS"
441 FORK=.TO9:GOSUB40:FORJ=1TO30:NEXT:NEXT
443 POKE53280,4:FORJ=1TO200:NEXT:PRINTMS$"   "SP$MS$"  "Z$;
444 W(Q)=W(Q)+1:IM=25
445 PRINT"[156]":GOSUB800:
447 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN445
448 IFCK=1THENR(Q)=R(Q)+6:GOTO460
449 R(Q)=R(Q)+5:W(Q)=W(Q)+2
450 GOSUB35:PRINTMS$"    YOUR TIME IS UP  ":FORJ=1TO2000:NEXT
452 GOSUB35:PRINTMS$"     THE STATE IS: ":FORJ=1TO1300:NEXT:PRINTMS$SP$
453 PRINTMS$SPC(16-LEN(S$(S,1)))S$(S,1):FORJ=1TO2900:NEXT:GOTO350
460 GOSUB30:CK=.:PRINTMS$SP$"   "MS$"       YOU'RE RIGHT":FORJ=1TO2000:NEXT
461 GOTO350
500 PRINTMS$"[145]                       "
505 PRINT"[145]                       "
510 PRINT"                       "
520 PRINT"            "SP$
521 PRINT"            "SP$
522 PRINT"[145]            "SP$
523 PRINT"            "SP$
524 PRINT"[145]            "SP$
525 PRINT"            "SP$
527 PRINT"[145]            "SP$"[145][145][145][145][145][145][145][145][145]":S=INT(RND(.)*50+1)
530 PRINT"I BEGIN WITH- "LEFT$(S$(S,1),1):IM=35:Z$=""
535 PRINT"":GOSUB800:IFX$=""THEN100
540 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN535
545 IFCK=1THENR(Q)=R(Q)+10:GOTO666
548 X=INT(RND(.)*T(S,.)+1):Y=INT(RND(.)*T(S,.)+1):IFY=XTHEN548
550 PRINT"I BORDER- "S$(T(S,X),1)
555 PRINT"[145]AND- "S$(T(S,Y),1):IM=35:W(Q)=W(Q)+1
560 PRINT"":GOSUB800:IFX$=""THENW(Q)=W(Q)-1:GOTO100
565 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN560
566 IFCK=1THENR(Q)=R(Q)+9:GOTO666
570 PRINT"I'M ABBREVIATED- "S$(S,2):IM=35:W(Q)=W(Q)+1
575 PRINT"":GOSUB800:IFX$=""THENW(Q)=W(Q)-2:GOTO100
580 IFX$=CHR$(13)THENGOSUB850::IFCK=.THEN575
584 IFCK=1THENR(Q)=R(Q)+8:GOTO666
585 PRINT"MY CAPITOL IS- "S$(S,3):IM=30:W(Q)=W(Q)+1
590 PRINT"":GOSUB800:IFX$=""THENW(Q)=W(Q)-3:GOTO100
595 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN590
599 IFCK=1THENR(Q)=R(Q)+7:GOTO666
600 POKE53280,5:FORJ=1TO200:NEXT:PRINTMS$" YOU HAVE ONLY SECONDS"
601 FORK=.TO9:GOSUB40:FORJ=1TO30:NEXT:NEXT
602 POKE53280,4:FORJ=1TO200:NEXT:PRINTMS$"   "SP$MS$"  "Z$;
604 W(Q)=W(Q)+1:IM=25
608 PRINT"":GOSUB800:
610 IFX$=CHR$(13)THENGOSUB850:IFCK=.THEN608
615 IFCK=1THENR(Q)=R(Q)+6:GOTO666
620 R(Q)=R(Q)+5:W(Q)=W(Q)+2
622 GOSUB35:PRINTMS$"    YOUR TIME IS UP  ":FORJ=1TO2000:NEXT:GOSUB35
630 PRINTMS$"     THE STATE IS: ":FORJ=1TO1300:NEXT:PRINTMS$SP$
633 PRINTMS$SPC(16-LEN(S$(S,1)))S$(S,1):FORJ=1TO2900:NEXT:GOTO500
666 CK=.:PRINTMS$SP$"   "MS$"       YOU'RE RIGHT":GOSUB30:FORJ=1TO2000:NEXT
667 GOTO500
799 POKE788,49:STOP
800 PRINT""SPC(10+LEN(Z$));
805 PRINT" [157]";:FORJ=1TO30:GETX$:IFX$=""THENNEXT:IM=IM-1:IFIM=.THENRETURN
808 IFX$=""THEN812
810 J=30:NEXT:GOTO820
812 PRINT"[146] [157]";:FORJ=1TO30:GETX$:IFX$=""THENNEXT:GOTO805
817 J=30:NEXT
820 IF(X$=CHR$(13)ANDZ$<>"")ORX$=""THENPRINT" ":RETURN
825 X=LEN(Z$):IFX$="[157]"ORX$=CHR$(20)ANDX=.THEN805
830 IFX$="[157]"ORX$=CHR$(20)THENZ$=LEFT$(Z$,X-1):PRINT"[157]  [157][157]";:GOTO805
835 IFX>17OR((X$<"A"ORX$>"Z")ANDX$<>" ")THEN805
840 PRINTX$;:Z$=Z$+X$:GOTO805
850 CK=.:IFZ$=S$(S,1)THENCK=1:RETURN
855 X=.:FORJ=1TO50:IFS$(J,1)=Z$THENX=1:J=50
858 NEXT:GOSUB35:IFX=.THEN865
860 PRINTMS$"      WRONG STATE    ":FORJ=1TO1500:NEXT
861 PRINTMS$SP$:Z$="":RETURN
865 PRINTMS$"     NO SUCH STATE   ":FORJ=1TO1200:NEXT:GOSUB35
867 PRINTMS$"     CHECK SPELLING   ":FORJ=1TO1000:NEXT:PRINTMS$SP$:Z$="":RETURN
1100 POKE53280,4:POKE53281,4:PRINT"[147]MATTERS OF STATE"
1105 PRINT"[159][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
1106 PRINT"[150]BY DJB SHIBLEY"
1108 PRINT"[144]SETTING UP - PLEASE WAIT"CHR$(142)CHR$(8)
1110 POKE788,52:POKE650,127
1115 U=54272:POKEU+24,14:POKEU+5,50:FORJ=13TO.STEP-.25:POKEU+1,RND(.)*32+50
1120 POKEU+4,17:FORK=.TO9:NEXT:POKEU+4,16:POKEU+24,J:NEXT:RETURN
2000 :
2005 POKE53280,3:POKE53281,6:PRINT"[147]MATTERS OF STATE"
2010 PRINT"[144][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
2015 PRINT"             [154]TOTAL SCORES"
2020 PRINT"[158][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
2025 PRINT"[154]     WHAT STATE AM I  - ";:IFW(1)+R(1)=.THENPRINT"":GOTO2035
2027 PRINTLEFT$(STR$(R(1)/(R(1)+W(1))*100),5)"%":X=R(1):Y=R(1)+W(1)
2035 PRINT"     CAPITOLS         - ";:IFW(2)+R(2)=.THENPRINT"":GOTO2045
2037 PRINTLEFT$(STR$(R(2)/(R(2)+W(2))*100),5)"%":X=X+R(2):Y=Y+R(2)+W(2)
2045 PRINT"     MY NEIGHBORS ARE - ";:IFW(3)+R(3)=.THENPRINT"":GOTO2055
2047 PRINTLEFT$(STR$(R(3)/(R(3)+W(3))*100),5)"%":X=X+R(3):Y=Y+R(3)+W(3)
2055 PRINT" GRAND TOTAL - ";:IFY=.THEN2100
2056 PRINTLEFT$(STR$(X/Y*100),5)"%"
2100 PRINT"":POKE788,49:POKE650,255:POKEU+24,15:POKEU+6,240:POKEU+4,17
2105 FORJ=14TO.STEP-.25:FORK=1TO255STEP25:POKEU+1,K:NEXT:POKEU+24,J
2108 FORK=14TOJSTEP-.5:NEXT:NEXT:POKEU+4,32:PRINT"[144]":GOTO63000
4999 STOP
5000 DATAALABAMA,AL,MONTGOMERY,5,9,10,24,42,54
5005 DATAALASKA,AK,JUNEAU,3,51,55,56
5010 DATAARIZONA,AZ,PHOENIX,5,5,31,44,52,28
5015 DATAARKANSAS,AS,LITTLE ROCK,6,24,42,25,36,43,18
5020 DATACALIFORNIA,CA,SACRAMENTO,5,55,37,28,3,52
5025 DATACOLORADO,CO,DENVER,7,50,27,16,36,31,3,44
5030 DATACONNECTICUT,CT,HARTFORD,4,21,39,32,53
5035 DATADELAWARE,DE,DOVER,4,20,38,30,53
5040 DATAFLORIDA,FL,TALLAHASSEE,4,10,1,53,54
5045 DATAGEORGIA,GA,ATLANTA,6,9,1,53,40,33,42
5050 DATAHAWAII,HI,HONOLULU,3,55,55,55
5055 DATAIDAHO,ID,BOISE,7,51,26,50,44,37,28,47
5060 DATAILLINOIS,IL,SPRINGFIELD,5,49,14,17,25,15
5065 DATAINDIANA,IN,INDIANAPOLIS,3,13,35,17
5070 DATAIOWA,IA,DES MOINES,6,23,49,13,25,27,41
5075 DATAKANSAS,KS,TOPEKA,4,27,25,36,6
5080 DATAKENTUCKY,KY,FRANKFORT,7,13,14,35,48,46,42,25
5085 DATALOUISIANA,LA,BATON ROUGE,4,24,4,43,54
5090 DATAMAINE,ME,AUGUSTA,3,29,51,53
5095 DATAMARYLAND,MD,ANNAPOLIS,4,38,8,46,48
5100 DATAMASSACHUSETTS,MA,BOSTON,5,39,7,32,45,29
5105 DATAMICHIGAN,MI,LANSING,4,51,35,14,49
5110 DATAMINNESOTA,MN,ST. PAUL,5,49,34,41,15,51
5115 DATAMISSISSIPPI,MS,JACKSON,5,42,1,4,18,54
5120 DATAMISSOURI,MO,JEFFERSON CITY,8,15,13,17,4,42,27,16,36
5125 DATAMONTANA,MT,HELENA,5,34,41,50,12,51
5130 DATANEBRASKA,NE,LINCOLN,6,41,15,25,50,16,6
5135 DATANEVADA,NV,CARSON CITY,5,37,12,44,3,5
5140 DATANEW HAMPSHIRE,NH,CONCORD,5,45,21,19,51,53
5145 DATANEW JERSEY,NJ,TRENTON,4,32,38,8,53
5150 DATANEW MEXICO,NM,SANTA FE,5,43,36,6,3,52
5155 DATANEW YORK,NY,ALBANY,5,51,38,45,7,30
5160 DATANORTH CAROLINA,NC,RALEIGH,4,46,42,40,10
5165 DATANORTH DAKOTA,ND,BISMARCK,4,41,23,26,51
5170 DATAOHIO,OH,COLUMBUS,5,14,17,22,38,48
5175 DATAOKLAHOMA,OK,OKLAHOMA CITY,5,6,16,25,4,43
5180 DATAOREGON,OR,SALEM,5,47,12,5,28,55
5185 DATAPENNSYLVANIA,PA,HARRISBURG,6,35,32,30,8,20,48
5190 DATARHODE ISLAND,RI,PROVIDENCE,3,7,21,53
5195 DATASOUTH CAROLINA,SC,COLUMBIA,4,33,42,10,53
5200 DATASOUTH DAKOTA,SD,PIERRE,6,26,23,34,50,15,27
5205 DATATENNESSEE,TN,NASHVILLE,8,46,25,17,33,10,1,24,4
5210 DATATEXAS,TX,AUSTIN,5,4,31,36,18,54
5215 DATAUTAH,UT,SALT LAKE CITY,5,50,28,12,6,3
5220 DATAVERMONT,VT,MONTPELIER,4,32,21,29,51
5225 DATAVIRGINIA,VA,RICHMOND,5,48,20,17,42,33
5230 DATAWASHINGTON,WA,OLYMPIA,4,37,12,51,55
5235 DATAWEST VIRGINIA,WV,CHARLESTON,5,38,35,20,46,17
5240 DATAWISCONSIN,WI,MADISON,4,22,23,15,13
5245 DATAWYOMING,WY,CHEYENNE,6,26,41,6,27,44,12
5250 DATACANADA
5251 DATAMEXICO
5252 DATATHE ATLANTIC
5253 DATAGULF OF MEXICO
5254 DATATHE PACIFIC
5255 DATATHE ARTIC OCEAN
5300 DIMS$(56,3),T(50,8)
5310 FORJ=1TO50:READS$(J,1),S$(J,2),S$(J,3),T(J,.):FORK=1TOT(J,.)
5315 READT(J,K):NEXT
5325 NEXT
5330 READS$(51,1),S$(52,1),S$(53,1),S$(54,1),S$(55,1),S$(56,1):RETURN
5554 STOP
5555 OPEN15,8,15:PRINT#15,"S0:USA":CLOSE15:SAVE"USA",8
63000 REM  CONNECT TO LS
63010 LOAD"PAYLOAD CONNECT",8